Mission 3

home *** CD-ROM | disk | FTP | other *** search

/ Mission 3 / Mission 3.zip / Mission 3.iso / spiele / sac / source / house.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1989-07-28 | 20KB | 386 lines

10 REM *** S.A.C ADVENTURE EDITOR v1.2 *** 100 GOSUB 1000 IF 1010 IF 1020 IF 1030 IF 1040 IF 1050 IF 1060 GOTO 1070 REM ** INVENTORY ** 1080 FOR 1090 IF 110 ON ERROR 1100 IF 1110 NEXT 1120 IF 1130 GOTO 1140 REM *** GET OBJECT *** 1150 IF 1160 REM 1170 REM 1180 IF 1190 IF 120 VARNAME 1200 REM PUT SPECIAL GET COMMANDS HERE 1210 REM 1220 REM 1230 REM 1240 REM 1250 REM 1260 REM 1270 REM 1280 REM 1290 REM 130 VARNAME 1300 REM 1310 REM 1320 REM 1330 FOR 1340 IF 1350 IF 1360 NEXT 1370 FOR 1380 IF 1390 IF 140 VARNAME 1400 IF 1410 IF 1420 IF 1430 NEXT 1440 IF 1450 REM *** DROP OBJECT *** 1460 IF 1470 REM 1480 IF 1490 IF 150 REM 1500 REM PUT SPECIAL DROP COMMANDS HERE 1510 REM 1520 REM 1530 REM 1540 REM 1550 REM 1560 REM 1570 REM 1580 REM 1590 REM 160 REM 1600 REM 1610 REM 1620 FOR 1630 IF 1640 NEXT 1650 FOR 1660 IF 1670 IF 1680 IF 1690 IF 170 REM PUT YOUR VARIBLES HERE 1700 NEXT 1710 IF 1720 REM *** EXAMINE OBJECT *** 1730 IF 1740 REM 1750 IF 1760 REM PUT REVEALING OBJECT COMMANDS HERE 1770 IF 1780 REM 1790 REM 180 REM 1800 REM 1810 REM 1820 FOR 1830 IF 1840 IF 1850 IF 1860 IF 1870 NEXT 1880 REM *** EXAMINE LOCATION *** 1890 REM 190 REM 1900 IF 1910 IF 1920 REM 1930 REM PUT LOCATION REVEALING COMMANDS HERE 1940 IF 1950 IF 1960 IF 1970 IF 1980 FOR 1990 IF 20 HIDE 200 REM 2000 IF 2010 NEXT 2020 IF 2030 REM *** WEAR OBJECT *** 2040 IF 2050 REM 2060 REM 2070 REM 2080 REM PUT SPECIAL WEAR COMMANDS HERE 2090 REM 210 REM 2100 REM 2110 REM 2120 REM 2130 FOR 2140 IF 2150 IF 2160 IF 2170 IF 2180 NEXT 2190 IF 220 REM 2200 REM *** REMOVE OBJECT *** 2210 IF 2220 REM 2230 REM 2240 REM PUT SPECIAL REMOVE COMMANDS HERE 2250 REM 2260 REM 2270 REM 2280 REM 2290 REM 230 REM 2300 FOR 2310 IF 2320 IF 2330 IF 2340 IF 2350 NEXT 2360 IF 2370 REM *** OPEN *** 2380 IF 2390 REM 240 REM *** CHECK FOR PICTURE *** 2400 REM 2410 REM ENTER OPEN COMMANDS HERE 2420 IF 2430 IF 2440 REM 2450 IF 2460 REM *** CLOSE *** 2470 IF 2480 REM 2490 REM 250 IF 2500 REM ENTER CLOSE COMMANDS HERE 2510 REM 2520 REM 2530 REM 2540 IF 2550 REM *** QUIT SECTION *** 2560 PRINT 2570 VARNAME 2580 IF 2590 IF 260 GOTO 2600 GOTO 2610 PRINT 2620 PRINT 2630 VARNAME 2640 IF 2650 DEFAULT 2660 REM *** LOAD A PICTURE *** 2670 FOR 2680 NEXT 2690 FOR 270 REM ** OPEN HIDDEN WINDOW ** 2700 SCREEN COPY 2710 NEXT 2720 GOTO 2730 REM *** GAME DATA *** 2740 DATA 2750 DATA 2760 IF 2770 IF 2780 IF 2790 IF 280 PEN 2800 IF 2810 IF 2820 REM if none of the local commands 2830 REM are used then the game looks at this part 2840 REM to see if any of these commands are used 2850 REM this is the part of the game where 2860 REM the game checks for low priority events 2870 REM 2880 REM 2890 REM 290 REM ***** PRINT LOCATION ***** 2900 REM 2910 REM 2920 REM 2930 REM 2940 REM 295 IF 2950 REM 2960 REM 2970 REM 2980 REM 2990 REM 30 DIM 300 PRINT 3000 REM 3010 REM 3020 REM 3030 REM 3040 REM 3050 REM 3060 REM 3070 REM 3080 REM 3090 REM 310 IF 3100 REM 3110 REM 3120 REM 3130 REM 3140 REM 3150 REM 3160 REM 3170 REM 3180 REM 3190 REM 320 FOR 3200 REM 3210 REM 3220 IF 3230 FOR 3240 IF 3250 IF 3260 IF 3270 NEXT 3280 GOTO 3290 FOR 330 REM *** HIGH PRIORITY EVENTS *** 3300 VARNAME 3310 IF 3320 NEXT 3330 REM <<< ADVEN DATA FILE NOT ON DISK >>> 3340 LOCATE 3350 REM <<< DISK ERRORS >>> 3360 IF 3370 RESUME 3380 REM ~~~ LOAD SAC DATA ~~~ 3390 OPEN IN 340 REM 3400 LINE INPUT 3405 FOR 3410 LINE INPUT 3415 FOR 3420 LINE INPUT 3430 LINE INPUT 3435 FOR 3440 FOR 3450 FOR 3460 FOR 3480 FOR 350 VARNAME 3500 FOR 3520 FOR 3530 FOR 3550 CLOSE 360 REM 3600 REM ~~~~ PUT OBJECTS BACK IN OLD POSTIONS AND RESET FLAGS ~~~~ 3610 OPEN IN 370 REM 380 REM 3800 LINE INPUT 3810 FOR 3820 CLOSE 390 REM 40 DIM 400 REM 4000 REM *** SAVE GAME POSTION *** 4005 PRINT 4010 OPEN OUT 4020 PRINT 4030 REM 4040 REM 4050 REM 4060 REM 4070 REM PUT VARIBLES TO BE SAVED HERE 4080 REM 4090 FOR 410 REM 4100 CLOSE 420 REM 430 REM this is the part of the game 440 REM where the computer checks 450 REM for any danger or any characters 460 REM befor the player gets a chance 470 REM to input a command 480 REM 490 REM 50 FOR 500 REM 5000 REM *** LOAD GAME POSTION *** 5005 PRINT 5010 OPEN IN 5020 INPUT 5030 REM 5040 REM 5050 REM 5060 REM 5070 REM PUT VARIBLES TO BE LOADED HERE 5080 REM 5090 FOR 510 REM 5100 CLOSE 520 REM 530 REM 540 REM 550 REM 560 REM ** CHECK FOR OBJECT PRESENT ** 570 VARNAME 580 FOR 590 IF 60 FOR 600 NEXT 610 IF 620 IF 630 FOR 640 IF 65 DIR$ 650 NEXT 660 VARNAME 670 REM **** SPILT LINE INTO SINGLE WORDS **** 680 LINE INPUT 690 INC 70 REM ** LOAD TITLE SCREEN ** 700 VARNAME 710 REPEAT 720 VARNAME 730 IF 740 VARNAME 750 UNTIL 760 REM *** CHECK IF DIRECTION ENTERED *** 770 FOR 780 IF 790 NEXT 80 LOCATE 800 REM 810 IF 820 IF 830 REM 840 REM PUT DIFFERENT EXITS HERE 850 REM 860 IF 870 IF 880 REM 890 REM 90 REM ***** VARIBLES ***** 900 REM 910 REM 920 REM 930 REM 940 REM 950 REM 960 IF 970 IF 980 REM **** NORMAL ADVENTURE COMMANDS **** 990 IF